home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n16.arc / MENUDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-27  |  588b  |  23 lines
  1. PROGRAM MenuDemo;
  2. USES MenuUnit, Crt;
  3. VAR
  4.   Choice   : Integer;
  5.   M        : BBMenu;
  6. BEGIN
  7.   M.Init(25, 7, 18);
  8.   M.AddPrompt('Open a new file');
  9.   M.AddPrompt('Existing file');
  10.   M.AddPrompt('Close a file');
  11.   M.AddPrompt('Quit');
  12.   Choice := M.GetChoice;
  13.   GotoXY(1, 24); ClrEOL;
  14.   CASE Choice OF
  15.     0 : WriteLn('No choice was made');
  16.     1 : WriteLn('Procedure NewFile should be called');
  17.     2 : WriteLn('Procedure ExistingFile should be called');
  18.     3 : WriteLn('Procedure CloseFile should be called');
  19.     4 : WriteLn('Quitting ...');
  20.   END;
  21.   M.Done;
  22. END.
  23.